home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / DiskUtil / CD-ROM / JukeBox.lha / fwd.jb < prev    next >
Text File  |  1995-08-23  |  483b  |  23 lines
  1. /* skip to next track */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. options failat 11;
  6. toc stem a.;
  7. if rc = 0 then do;
  8.     current track;
  9.     toset = result + 1;
  10.     /* if there are tracks, skip to next */
  11.     if toset < a.0 then do;
  12.         set track toset;
  13.     end;
  14.     /* else move to last logical block */
  15.     else do;    
  16.         current cdtime;
  17.         parse value result with mins':'secs':'frames;
  18.         endblock = (mins * 60 + secs) * 75 + frames - 150 - 1;
  19.         set block endblock;
  20.     end;    
  21. end;
  22. exit(0);
  23.